﻿Imports BUS
Imports DTO
Public Class frmDanhSachTraCuuPhieuGui
    Private _dspgt As New List(Of PhieuGoiTienCrt)()
    Public Property DSPGT() As List(Of PhieuGoiTienCrt)
        Get
            Return _dspgt
        End Get
        Set(ByVal value As List(Of PhieuGoiTienCrt))
            _dspgt = value
        End Set
    End Property

    Private Sub frmDanhSachTraCuuPhieuGui_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To _dspgt.Count - 1
            Dim lv As ListViewItem = lvwDanhSachTraCuuPhieuGuiTien.Items.Add((i + 1).ToString())
            lv.SubItems.Add(_dspgt(i).MaSo.ToString())
            lv.SubItems.Add(_dspgt(i).TenKH.ToString())
            lv.SubItems.Add(_dspgt(i).NgayGoi.ToString())
            lv.SubItems.Add(_dspgt(i).SoTienGoi.ToString())
        Next
    End Sub
End Class